perm filename TEST.TEX[TEX,DEK]4 blob
sn#430110 filedate 1979-04-07 generic text, type T, neo UTF8
\input dochdr
\secbegin Testing 1,2,3$\ldots$
\pascal
\1\3\2\1\&{define} \\{curchar} $=$ $15\null$\40\ $\{\;$current character$\;\}$
$\null
$
\3\2\1\&{define} \\{escape}\.{(\char'43)} $≡$ $\.{\char'43}+\.{\char'43}\null$\40\ $\{\;$testing this$\;\}$
$\null
$
\3\2\1\&{define} \\{escape2} $≡$ $\\{curchar}+\hbox{\char'16}10\null$\40\ $\{\;$another test$\;\}$
$\null
$
\secbegin \head{Let's try \TEX in a heading}
Ejecting the page once:\par\vfill\eject
Ejecting the page twice:\par\vfill\eject
Ejecting the page thrice:\par\vfill\eject
Let's hope it worked.
\pascal
\2$\\{escape}(5)$;
\2$\\{escape2}$
\3\2\1\&{define} \\{curchar} $=$ $14\mathopen{\hbox{e}}\mathopen{\hbox{s}}\mathopen{\hbox{c}}\mathopen{\hbox{a}}\mathopen{\hbox{p}}\mathopen{\hbox{e}}2
\\{intentional}
\\{error}$
\index
\\curchar:\&{2}, 1.
\\error:2.
\\escape2:\&{1}, 2.
\\escape:\&{1}, 2.
\\intentional:2.
\endindex